home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #1 / Amiga Plus 1995 #1.iso / demoversionen / microdot / install-microdot < prev    next >
Text File  |  1994-12-13  |  13KB  |  587 lines
  1. ;
  2. ; Installer-Script for MicroDot
  3. ;
  4.  
  5. ; strings
  6.  
  7. (set #install-where-msg
  8. (cat    "Möchten Sie MicroDot auf Diskette "
  9.         "oder auf Festplatte installieren?"
  10. ))
  11.  
  12. (set #install-where-help
  13. (cat    "\nHier entscheiden Sie, ob MicroDot auf Disketten "
  14.         "oder, falls vorhanden, auf Ihre Festplatte installiert "
  15.         "werden soll.\n\n"
  16.         "Wenn Ihr Amiga-System mit einer Festplatte ausgerüstet "
  17.         "ist, sollten Sie MicroDot auf jeden Fall dort "
  18.         "installieren."
  19. ))
  20.  
  21. (set #install-hd-msg
  22. (cat    "Wohin soll das MicroDot-Verzeichnis "
  23.         "installiert werden?"
  24. ))
  25.  
  26. (set #install-hd-help
  27. (cat    "\nHier müßen Sie angeben, wo auf Ihrer "
  28.         "Festplatte das MicroDot-Verzeichnis installiert werden "
  29.         "soll.\n\n"
  30.         "Das Installationsprogramm erzeugt dann in dem von Ihnen "
  31.         "angegebenen Verzeichnis eine neue Schublade mit dem "
  32.         "Namen \"MicroDot\".\n\n"
  33.         "Sie sollten MicroDot nach Möglichkeit NICHT auf einer Partition "
  34.         "installieren, die mit dem DirCache-FileSystem formatiert ist."
  35. ))
  36.  
  37. (set #floppy-askformat-msg
  38. (cat    "Für eine Disketteninstallation benötigen Sie "
  39.         "zwei formatierte Disketten mit den Namen "
  40.         "\"MD-MAIN\" und \"MD-DATA\". Sie können die "
  41.         "Disketten jetzt formatieren lassen oder "
  42.         "selbst formatierte Disketten verwenden."
  43. ))
  44.  
  45. (set #floppy-askformat-help
  46. (cat    "\nHier entscheiden Sie, ob jetzt die "
  47.         "für die MicroDot-Installation "
  48.         "benötigten Disketten formatiert "
  49.         "werden sollen.\n\n"
  50.         "Sie können problemlos auch selbst formatierte "
  51.         "Disketten verwenden, wenn Sie ein besonderes "
  52.         "Format oder Disketten verschiedener Größe "
  53.         "verwenden wollen."
  54. ))
  55.  
  56. (set #format1-msg
  57. (cat    "Bitte legen Sie die erste zu formatierende "
  58.         "Diskette in das Laufwerk DF0:\n\n"
  59.         "Diese Diskette ist später Ihre MicroDot-Datendiskette "
  60.         "und trägt dann den Namen \"MD-DATA:\"."
  61. ))
  62.  
  63. (set #format2-msg
  64. (cat    "Bitte legen Sie die zweite zu formatierende "
  65.         "Diskette in das Laufwerk DF0:\n\n"
  66.         "Diese wird danach ihre MicroDot-Hauptdiskette "
  67.         "mit dem Namen \"MD-MAIN\". Auf dieser Diskette "
  68.         "wird das Hauptprogramm installiert."
  69. ))
  70.  
  71. (set #format1-cmd "sys:system/format <ram:..MDINST.. drive df0: name MD-DATA noicons")
  72. (set #format2-cmd "sys:system/format <ram:..MDINST.. drive df0: name MD-MAIN noicons")
  73. (set #format-tmp "ram:..MDINST..")
  74. (set #format-err-msg "Fehler Nr. %ld beim Formatieren der Diskette!")
  75. (set #format1-busy "Formatiere erste Diskette...")
  76. (set #format2-busy "Formatiere zweite Diskette...")
  77.  
  78. (set #copying-reqtools "Kopiere reqtools.library nach Libs:")
  79. (set #copying-aguide "Kopiere amigaguide.library nach Libs:")
  80.  
  81. (set #want20
  82. (cat    "Möchten Sie die spezielle MicroDotAGA-Version für OS 3.0 "
  83.         "und 68020+ installiert haben? "
  84.  
  85. ))
  86. (set #want20-help
  87. (cat    "Sie haben ein Amiga-System mit OS 3.0 oder größer "
  88.         "und einem %s Prozessor.\n\n"
  89.         "Möchten Sie die spezielle MicroDotAGA-Version für solche "
  90.         "Konfigurationen installiert haben?"
  91. ))
  92.  
  93. (set #insert1-msg
  94. (cat    "Bitte legen Sie die Diskette mit dem Namen "
  95.         "\"MD-MAIN\" ein."
  96. ))
  97.  
  98. (set #insert1-help
  99. (cat    "Für die weitere Installation wird jetzt die zweite "
  100.         "vorhin formatierte Diskette mit dem Namen \"MD-MAIN\" "
  101.         "benötigt.\n\n"
  102.         "Falls Sie vorhin keine Disketten formatiert haben und "
  103.         "keine selbst formatierten Disketten mit den richtigen "
  104.         "Namen haben, brechen Sie die Installation jetzt ab "
  105.         "und starten Sie sie danach neu."
  106. ))
  107.  
  108. (set #cfgexist-msg
  109. (cat    "Es existiert bereits eine Prekonfigurationsdatei für "
  110.         "ihr System, die beim ersten Start von MicroDot automatisch "
  111.         "gelesen wird."
  112. ))
  113.  
  114. (set #cfgexist-help
  115. (cat    "Es wurde eine Datei \"microdot.cfg\" gefunden, die "
  116.         "die Parameter für Ihr Pointsystem, wie den Usernamen "
  117.         "oder die Telefonnummer der Box enthält. Eine weitere "
  118.         "Konfiguration des Points ist daher nicht notwendig."
  119. ))
  120.  
  121. (set #taconv-msg
  122. (cat    "Möchten Sie die Parameter Ihrer TheAnswerII-Konfiguration "
  123.         "übernehmen? "
  124. ))
  125.  
  126. (set #taconv-help
  127. (cat    "Es wurde eine Datei \"S:AnswerII.cfg\" gefunden, die eine "
  128.         "Konfiguration für das Pointprogramm The Answer enthält.\n\n"
  129.         "Es ist möglich, die dort eingestellten Parameter in "
  130.         "MicroDot zu übernehmen.\n\n"
  131. ))
  132.  
  133. (set #converter-msg    "Möchten Sie eine bestehende Point-Konfiguration übernehmen? " )
  134.  
  135. (set #converter-help
  136. (cat    "Falls Sie bereits \"The Answer 2.03\" oder \"Zodiac's Point 3.3\" "
  137.         "auf Ihrem System installiert haben, können Sie die Pointparameter "
  138.         "und die Nachrichten der alten Installation für MicroDot "
  139.         "übernehmen.\n\n"
  140. ))
  141.  
  142. (set #taconvfile-msg "Bitte geben Sie den Namen Ihrer \"The Answer\"-Konfigurationsdatei an.")
  143.  
  144. (set #taconvfile-help
  145. (cat    "Sie haben sich entschieden, Ihre \"The Answer\"-Konfiguration "
  146.         "für MicroDot zu übernehmen. Dafür wird der Pfad und Dateiname "
  147.         "Ihrer \"The Answer\"-Konfigurationsdatei benötigt. Diese Datei "
  148.         "befindet sich normalerweise in \"S:AnswerII.cfg\"."
  149. ))
  150.  
  151. (set #zpconvfile-msg "Bitte geben Sie den Namen Ihrer \"Zodiac's Point\"-Konfigurationsdatei an.")
  152.  
  153. (set #zpconvfile-help
  154. (cat    "Sie haben sich entschieden, Ihre \"Zodiac's Point\"-Konfiguration "
  155.         "für MicroDot zu übernehmen. Dafür wird der Pfad und Dateiname "
  156.         "Ihrer \"Zodiac's Point\"-Konfigurationsdatei benötigt. Diese Datei "
  157.         "befindet sich normalerweise in der Point-Schublade unter dem "
  158.         "Namen \"config.zp\"."
  159. ))
  160.  
  161. (set #update-msg
  162. (cat     "Möchten Sie Ihre bestehende MicroDot-Installation updaten "
  163.         "oder komplett neu installieren? Auch bei einer Neuinstallation "
  164.         "bleiben Ihre Daten vollständig erhalten."
  165. ))
  166.  
  167. (set #update-help
  168. (cat    "Sie haben in dem ausgewählten Verzeichnis bereits MicroDot "
  169.         "installiert. Hier können Sie nun entscheiden, ob diese "
  170.         "Installation geupdatet werden soll (nur die Dateien "
  171.         "MicroDot, MicroDot.guide und LiesMich.txt werden ersetzt) "
  172.         "oder ob komplett neu installiert werden soll.\n"
  173.         "In beiden Fällen bleiben Ihre Datenbestände unangetastet."
  174. ))
  175.  
  176.  
  177. ;
  178. ; Procedures
  179. ;
  180.  
  181. (procedure checkv20
  182.     (set v20-flag 0)
  183.     (if (> (/ (getversion) 65536) 38)
  184.         (if (exists "MDInstall/MicroDotAGA" )
  185.             (if (>= (database "cpu") 68020 )
  186.                 (set v20-flag
  187.                     (askbool
  188.                         (prompt #want20)
  189.                         (help (#want20-help (database "cpu" ) ) ) 
  190.                         (default 1)
  191.                     )
  192.                 )
  193.             )
  194.         )
  195.     )
  196. )
  197.  
  198. (procedure do_ta
  199.     (set doconvta-flag
  200.         (askbool
  201.             (prompt #taconv-msg)
  202.             (help #taconv-help)
  203.             (default 1)
  204.         )
  205.     )
  206.     (if doconvta-flag
  207.         (
  208.             (working "Konvertiere \"The Answer\"-Konfiguration...")
  209.             (run ( "MDInstall/TAConv S:AnswerII.cfg %s" @default-dest ) )
  210.         )
  211.     )
  212. )
  213.  
  214. (procedure do_ta_conv
  215.     (set conffilename
  216.         (askfile
  217.             (prompt #taconvfile-msg)
  218.             (help #taconvfile-help)
  219.             (default "S:AnswerII.cfg")
  220.         )
  221.     )
  222.     (if conffilename
  223.         (
  224.             (working "Konvertiere \"The Answer\"-Konfiguration...")
  225.             (run ( "MDInstall/TAConv %s %s" conffilename @default-dest ) )
  226.         )
  227.     )
  228. )
  229.  
  230. (procedure do_zp_conv
  231.     (set conffilename
  232.         (askfile
  233.             (prompt #zpconvfile-msg)
  234.             (help #zpconvfile-help)
  235.             (default "convert.zp")
  236.         )
  237.     )
  238.     (if (<> conffilename "")
  239.         (
  240.             (working "Konvertiere \"Zodiac's Point\"-Konfiguration...")
  241.             (run ( "MDInstall/ZPConv %s %s" conffilename @default-dest ) )
  242.         )
  243.     )
  244. )
  245.  
  246. (procedure do_copy
  247.     (copyfiles
  248.         (source "MDInstall/MicroDot.guide")
  249.         (newname "MicroDot.guide")
  250.         (prompt "Kopiere MicroDot.guide...")
  251.         (help @copyfiles-help)
  252.         (confirm)
  253.         (infos)
  254.         (dest @default-dest)
  255.     )
  256.     (copyfiles
  257.         (source "MDInstall/")
  258.         (dest @default-dest)
  259.         (choices "MicroDot.info" "MicroDot-Netcall.info" "MicroDot-Terminal.info")
  260.         (prompt "Kopiere Piktogramme...")
  261.         (help @copyfiles-help)
  262.         (confirm)
  263.     )
  264.     (complete 42)
  265.     (if (exists "LiesMich.txt" )
  266.         (copyfiles
  267.             (source "LiesMich.txt" )
  268.             (dest @default-dest)
  269.             (optional nofail)
  270.             (prompt "Kopiere LiesMich.txt..." )
  271.             (help @copyfiles-help)
  272.             (confirm)
  273.             (infos)
  274.         )
  275.     )
  276.     (if (exists "MicroDot.cfg" )
  277.         (copyfiles
  278.             (source "MicroDot.cfg")
  279.             (dest @default-dest)
  280.             (optional nofail)
  281.             (prompt "Kopiere MicroDot.cfg...")
  282.             (help @copyfiles-help)
  283.             (confirm)
  284.         )
  285.     )
  286.     (copyfiles
  287.         (source "MDInstall/")
  288.         (dest @default-dest)
  289.         (pattern "md_#?.(pub|priv)")
  290.         (optional nofail)
  291.         (prompt "Kopiere Beispiel-Quoteheader...")
  292.         (help @copyfiles-help)
  293.         (confirm)
  294.     )
  295.             
  296.  
  297.     (complete 50)
  298.  
  299.     (checkv20)
  300.  
  301.     (if (<> v20-flag 0 )
  302.         (copyfiles
  303.             (source "MDInstall/MicroDotAGA")
  304.             (dest @default-dest)
  305.             (newname "MicroDot")
  306.             (prompt "Kopiere MicroDot-Hauptprogramm...")
  307.             (help @copyfiles-help)
  308.             (confirm)
  309.         )
  310.         (copyfiles
  311.             (source "MDInstall/MicroDot")
  312.             (dest @default-dest)
  313.             (prompt "Kopiere MicroDot-Hauptprogramm...")
  314.             (help @copyfiles-help)
  315.             (confirm)
  316.         )
  317.     )
  318.     (complete 75)
  319. )
  320.  
  321. (procedure do_update
  322.     (copyfiles
  323.         (source "MDInstall/MicroDot.guide")
  324.         (confirm)
  325.         (prompt "Update MicroDot.Guide...")
  326.         (help @copyfiles-help)
  327.         (dest @default-dest)
  328.     )
  329.     (complete 52)
  330.     (if (exists "LiesMich.txt" )
  331.         (copyfiles
  332.             (source "LiesMich.txt" )
  333.             (dest @default-dest)
  334.             (confirm)
  335.             (prompt "Update LiesMich.txt..." )
  336.             (help @copyfiles-help)
  337.         )
  338.     )
  339.  
  340.     (complete 60)
  341.  
  342.     (checkv20)
  343.  
  344.     (if (<> v20-flag 0 )
  345.         (copyfiles
  346.             (source "MDInstall/MicroDotAGA")
  347.             (dest @default-dest)
  348.             (newname "MicroDot")
  349.             (confirm)
  350.             (prompt "Update MicroDot..." )
  351.             (help @copyfiles-help)
  352.         )
  353.         (copyfiles
  354.             (source "MDInstall/MicroDot")
  355.             (dest @default-dest)
  356.             (confirm)
  357.             (prompt "Update MicroDot..." )
  358.             (help @copyfiles-help)
  359.         )
  360.     )
  361.     (complete 100)
  362.     (exit)
  363. )
  364.  
  365.  
  366. (procedure do_askconvert
  367.     (set olduserlevel (user 1) )
  368.     (set convert-mode
  369.         (askchoice
  370.             (prompt #converter-msg)
  371.             (help #converter-help)
  372.             (choices "Keine Installation" "The Answer 2.03" "Zodiac's Point 3.3")
  373.         )
  374.     )
  375.     (user olduserlevel)
  376.     (select convert-mode
  377.         (working)
  378.         (do_ta_conv)
  379.         (do_zp_conv)
  380.     )
  381. )
  382.  
  383. (procedure do_hd 
  384.     (set default-dest
  385.         (askdir
  386.             (prompt #install-hd-msg)
  387.             (help #install-hd-help)
  388.             (default @default-dest)
  389.         )
  390.     )
  391.     (set @default-dest
  392.         (tackon default-dest "MicroDot")
  393.     )
  394.     (if (exists (tackon @default-dest "MicroDot.prefs" ) )
  395.         (if (askbool
  396.                 (prompt #update-msg)
  397.                 (help #update-help)
  398.                 (default 1)
  399.                 (choices "Update" "Neuinstallation" )
  400.             )
  401.             (do_update)
  402.         )
  403.     )
  404.  
  405.     (makedir @default-dest
  406.         (infos)
  407.     )
  408.     (makedir (tackon @default-dest "Rexx" ) )
  409.     (do_copy)
  410.  
  411.     (if (exists "s:AnswerII.cfg" )
  412.         (do_ta)
  413.         (do_askconvert)
  414.     )
  415. )
  416.  
  417. (procedure do_format
  418.     (set olduserlevel (user 1) )
  419.     (textfile 
  420.         (dest #format-tmp)
  421.         (append "\n")
  422.     )
  423.     (message #format1-msg)
  424.     (working #format1-busy)
  425.     (set retval
  426.         (run #format1-cmd
  427.         )
  428.     )
  429.     (if (<> retval 0 )
  430.         (abort (#format-err-msg retval))
  431.     )
  432.     (complete 15)
  433.     (message #format2-msg)
  434.     (working #format2-busy)
  435.     (set retval
  436.         (run #format2-cmd
  437.         )
  438.     )
  439.     (if (<> retval 0 )
  440.         (abort (#format-err-msg retval))
  441.     )
  442.     (complete 30)
  443.     (delete #format-tmp)
  444.     (user olduserlevel)
  445. )
  446.  
  447. (procedure do_floppy
  448.     (set format-flag
  449.         (askbool
  450.             (prompt #floppy-askformat-msg)
  451.             (help #floppy-askformat-help)
  452.             (default 1)
  453.             (choices "Formatieren" "Weiter")
  454.         )
  455.     )
  456.  
  457.     (if (= format-flag 1)
  458.         (do_format)
  459.     )
  460.  
  461.     (askdisk 
  462.         (dest "MD-MAIN")
  463.         (prompt #insert1-msg)
  464.         (help #insert1-help)
  465.     )
  466.  
  467.     (set @default-dest "MD-MAIN:")
  468.     (do_copy)
  469.     (makedir "MD-MAIN:Transfer")
  470. )
  471.  
  472. (procedure copy-reqtools
  473.     (complete 93)
  474.     (if (exists "MDInstall/libs/reqtools.library" )
  475.         (copylib
  476.             (prompt #copying-reqtools)
  477.             (help @copylib-help)
  478.             (source "MDInstall/libs/reqtools.library")
  479.             (dest "Libs:")
  480.             (confirm)
  481.         )
  482.     )
  483. )
  484.  
  485. (procedure copy-aguide
  486.     (complete 95)
  487.     (if (exists "MDInstall/libs/amigaguide.library" )
  488.         (copylib
  489.             (prompt #copying-aguide)
  490.             (help @copylib-help)
  491.             (source "MDInstall/libs/amigaguide.library")
  492.             (dest "Libs:")
  493.             (confirm)
  494.         )
  495.     )
  496.     (complete 97)
  497.  
  498.     (if (exists "SYS:Utilities/MultiView" ) 
  499.         (
  500.             (tooltype (
  501.                 (dest (tackon @default-dest "MicroDot.guide") )
  502.                 (setdefaulttool "SYS:Utilities/MultiView" )
  503.             ))
  504.         )
  505.  
  506.         (if (exists "MDInstall/AmigaGuide" )
  507.             (copyfiles
  508.                 (source "MDInstall/AmigaGuide")
  509.                 (dest @default-dest)
  510.             )
  511.         )
  512.     )
  513. )
  514.  
  515. (procedure do_config
  516.     (complete 80)
  517.     (set configname (tackon @default-dest "microdot.cfg" ) )
  518.     (if (exists configname)
  519.             (message #cfgexist-msg)
  520.     )
  521.     (complete 81)
  522.     (working)    
  523.     (if (= floppy-install 0)
  524.         (
  525.             (set tmpargs ( "echo >>\"%s\" \"datadir = MD-DATA:*ntransferdir = MD-MAIN:transfer/\"" configname ) )
  526.             (run tmpargs)
  527.         )
  528.     )
  529.     (working)
  530.     (complete 90)
  531.     (tooltype (
  532.         (dest (tackon @default-dest "MicroDot") )
  533.         (noposition)
  534.         (setstack 4000)
  535.         (swapcolors)
  536.     ))
  537.     (tooltype (
  538.         (dest (tackon @default-dest "MicroDot-Netcall") )
  539.         (noposition)
  540.         (setstack 4000)
  541.         (swapcolors)
  542.     ))
  543.     (tooltype (
  544.         (dest (tackon @default-dest "MicroDot-Terminal") )
  545.         (noposition)
  546.         (setstack 4000)
  547.         (swapcolors)
  548.     ))
  549.     (tooltype (
  550.         (dest (tackon @default-dest "MicroDot.guide") )
  551.         (noposition)
  552.         (setstack 10000)
  553.         (swapcolors)
  554.     ))
  555. )
  556.  
  557.  
  558. ;
  559. ;
  560. ; GO!
  561. ;
  562. ;
  563.  
  564. (complete 0)
  565. (set olduserlevel (user 1) )
  566. (set floppy-install
  567.     (askbool
  568.         (prompt #install-where-msg)
  569.         (help #install-where-help)
  570.         (choices "Festplatte" "Diskette" )
  571.     )
  572. )
  573. (user olduserlevel)
  574. (complete 1)
  575. (if (= floppy-install 0)
  576.     (do_floppy)
  577.     (do_hd)
  578. )
  579.  
  580. (do_config)
  581.  
  582. ; Reqtools installieren
  583.  
  584. (copy-reqtools)
  585. (copy-aguide)
  586. (complete 100)
  587.